home *** CD-ROM | disk | FTP | other *** search
/ Softdisk G-S 100 / SGDS 100.2mg / SDGS.100 / SDD100 / D / STARTUP (.txt) < prev    next >
Encoding:
Applesoft BASIC Source Code  |  1989-12-12  |  394 b   |  19 lines  |  [FC] Applesoft BASIC Program (0x0801)
  1. 0  ONERR  GOTO 10000
  2. 10 D$ =  CHR$(4)
  3. 20  PRINT D$"PREFIX"
  4. 30  INPUT PF$
  5. 40  PRINT D$"PREFIX"PF$
  6. 50  PRINT D$"OPEN"PF$",TDIR
  7. 60  PRINT D$"READ"PF$
  8. 70  INPUT K$,K$,K$
  9. 80  INPUT K$
  10. 90  IF  MID$ (K$,2,15) = "PRODOS         "  THEN 80
  11. 100  IF  MID$ (K$,2,15) = "BASIC.SYSTEM   "  THEN 80
  12. 110  IF  MID$ (K$,2,15) = "STARTUP        "  THEN 80
  13. 120  IF  MID$ (K$,18,3) = "DIR"  THEN 80
  14. 130  IF  MID$ (K$,18,3) = "SYS"  THEN 1209
  15. 140  IF  MID$ (K$,18,3) = "BAS"  THEN 1209
  16. 150  IF  MID$ (K$,18,3) = "BIN"  THEN 1209
  17. 160  GOTO 80
  18. 1209  PRINT D$"-" MID$ (K$,2,15)
  19. 10000  PRINT D$"CLOSE"